home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / os2 / fmcrds.arj / ENGLISH.CMD < prev    next >
OS/2 REXX Batch file  |  1994-05-01  |  2KB  |  117 lines
  1. /* ENGLISH.CMD: Installation of CARDS.EXE in english. */
  2. '@Echo Off'
  3.  
  4. /* load REXXUTIL */
  5.  
  6. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  7. Call SysLoadFuncs
  8.  
  9.  
  10. /* Initialisation */
  11.  
  12. Signal On Failure Name FAILURE
  13. Signal On Halt Name HALT
  14. Signal On Syntax Name SYNTAX
  15.  
  16. Call SysCls
  17. Say 'Installation of CARDS 1.02a...'
  18. Say ''
  19.  
  20.  
  21. /* Check... */
  22.  
  23. Language = 'ENGLISH'
  24.  
  25. Result = SysFileTree( Language".EX_", 'Files', 'F' )
  26. If Files.0 = 0 Then
  27.   Do
  28.   Say 'ERROR: 'Language'.EX_ not found!'
  29.   Signal DONE
  30.   End
  31.  
  32. Result = SysFileTree( "PICTURES.DLL", 'Files', 'F' )
  33. If Files.0 = 0 Then
  34.   Do
  35.   Say 'ERROR: PICTURES.DLL not found!'
  36.   Signal DONE
  37.   End
  38.  
  39. Result = SysFileTree( "README.TXT", 'Files', 'F' )
  40. If Files.0 = 0 Then
  41.   Do
  42.   Say 'ERROR: README.TXT not found!'
  43.   Signal DONE
  44.   End
  45.  
  46. Result = SysFileTree( Language".HL_", 'Files', 'F' )
  47. If Files.0 = 0 Then
  48.   Do
  49.   Say 'ERROR: 'Language'.HL_ not found!'
  50.   Signal DONE
  51.   End
  52.  
  53. /* Zielverzeichnis erfragen. */
  54.  
  55. Say 'Please enter the full target path for CARDS'
  56. Say '  Default: C:\CARDS: '
  57. Pull Directory
  58. If Directory = "" Then Directory = 'C:\CARDS'
  59.  
  60.  
  61. /* create target-path. */
  62.  
  63. Result = SysFileTree( Directory, 'Dirs', 'D' )
  64. If Dirs.0 = 0 Then
  65.   Do
  66.   Result = SysMkDir( Directory )
  67.   if Result == 0 Then
  68.     Do
  69.     End
  70.   Else
  71.     Do
  72.     Say 'ERROR: Can''t create target path.'
  73.     Signal DONE
  74.     End
  75.   End
  76. Say '';
  77.  
  78. /* Create desktop object */
  79.  
  80. Folder = '<WP_DESKTOP>'
  81.  
  82. /* Install */
  83.  
  84. Say 'Copying CARDS to ' Directory '...'
  85. Copy Language".EX_" Directory"\CARDS.EXE" '1>NUL'
  86. Copy "PICTURES.DLL" Directory"\PICTURES.DLL" '1>NUL'
  87. Copy "README.TXT" Directory"\README.TXT" '1>NUL'
  88. Copy Language".HL_" Directory"\CARDS.HLP" '1>NUL'
  89.  
  90. Say 'Creating desktop object...'
  91. Type = 'WPProgram'
  92. Title = 'Cardgames'
  93. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  94. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  95.  
  96. If Result = 1 Then
  97.   Say 'Desktop object was created!  Ready.'
  98. Else             
  99.   Say 'ERROR: Can''t create desktop object!'
  100.  
  101. Signal DONE
  102.  
  103. FAILURE:
  104. Say 'Error while processing REXX.'
  105. Signal DONE
  106.  
  107. HALT:
  108. Say 'REXX-Halt.'
  109. Signal DONE
  110.  
  111. SYNTAX:
  112. Say 'REXX-Syntaxerror.'
  113. Signal DONE
  114.  
  115. DONE:
  116. Exit
  117.